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DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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E SSIU (IDENT = ‘v04-000") = 
BEGIN 


t 

Spare prenpeangreny earn = perce em seme 
‘@ 

ie COPYRIGHT (¢) 1978, 0280 1982, 1984 8 

ie DIGITAL Eau PORATION, MAYHARD. MASSACHUSETTS. 

ie ALL RIGHTS RES wt Con 

ie THIS SOFTWARE IS se UNDER ‘. ICENSE AND MAY BE USED AND COPIED 


Hed A N on 6S trek nicut oF SUCH bien AND WITH THE 
Hed cop corre cute “NOT IC hd SOFTWARE OR ANY OTHER 
+e OPES Th THEREOF MAA 


wy 

* 

* 

® 

& 

® 

® 

® 

OR OTHERWISE MADE AVAILABLE TO ANY * 
i ON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY 
is TRANSFERRED. . 
od 

® 

® 

iy 

® 

€ 

a 

® 

& 

® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
7 eORPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


++ 
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:® DIGITAL ASSUMES NO RESPONS . ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Ping Sager, 19-Sep-1983 


1" 
1 
13 
1 
i 
0 : 
$ TITTITIIIIILIL ILI LLL LLL LiL Lili 
ee 
§ FACILITY: VAX/VMS System Service Call Monitor 
1 ABSTRACT: 
5 i This module is the other portion of $$1.832. In this “% user 
; declared routine is setup to be called at interception t 
5 5 : Other information ‘s also stored/retrieved by interfacing meith this 
; module. 
: ; ENVIRONMENT: 
40 0 VAX/VMS operating system 
i 
i 
i 


Include files 
LIBRARY "SYSSLIBRARY:L1B8.L32'; 


BR a a ee a a et a 8 8 A a nt a a ts hd a a a te 2 8 
- 
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' 
; Table of contents 
FORWARD ROUTINE 
ssiu_stert : 


user-cance(_restore, ; 
user setup; : 


EXTE ROUTI 


EXTERNAL LITERAL 
issh_vec_length; : 


EXTERNAL 
ssi_running. flag, 


issh_data_beg, 


issh_data_e 
issh-prio_mask, 


fooh_cert. index 
issh-ctrl“prio_index, 
issh_vec_Base; 


meme meme mm meme 


eB ah nh ne nd 8 dt nd ds an 8 


Main routine 
Cancel/Restore user delcared routine 
Setup user declared routine 


NE 
sysSqiow : ADDRESSING_MODE (ABSOLUTE);! Base of transfer vector 


Length of monitor code (ISSH) 


Flag set fo indicate this program 
¢ running 

Beg n data area (template) 

End data area (template) 

Mask to control the calling of the 

user ae | snes 

User routine index 

User routine index per priority 

ISSH base address 


=< 


15 se0- 1946 $3:18:8 — DhScdumenadtenscocaug.shcassiu.e32:1°°% «33 


1 ' as siu_star 
08 ER. A SETUP. FLAGS. USER “Aor, USER_1D, SAVE_MASK) = 
D082} taee 
5 ' t 
d0¢ Function: 
008 Tots is the main routine of the VAX/VMS to use System Service 
4: Monitor. It calls appropriate actions. 
0085 Inputs: 
+8. 


a 


USER_SETUP_FLAGS = a user declared routine to be called at 
int Feeption t time, it contains 4 bytes of the 
follow ng values: 


SETUP_FLAG - (0/1) Enable/Disable intercept oygtore s service for 
user declared routine. When user first time declares 
user's routine, SETUP_FLAG must be set to 1. 


USER_PRIO = (1/2/3/4) rag prsectey of the declared routine. 
Higher priority watches the lower priority. 


++ 


> 


> 


. 


2s 


Os et oo tt a a 9 ok a td a ot a st 4 48 1 OOOCT 


20 ub nduweseeio 
REN SSVSRNSORUN Soeur —o WPwnr— 


USER_MASK - Enable/Disable user declared routine when intercept 
Endo soryvee is enabled. Mask has the following 
k ne of yee ues: 
Prio. 1 has 1 bit value 
for example, 1 - enable, 


Prio. 2 has 2 bits value, 163" it watches prio. 1 
for example, 9 - prio. both are gy po 

- prio. 1 active, eric, grace ive. 

- prio. 1 inactive, prio. 2 active, 


p 

Prio. 3 has 3 3 value, for it watches prio. 182 
for gzanple. R nd above 

Prio. 4 has 4 bits value, toe it watches prio. 1,283 
for coeeen oe above. 


Each priority on sets its own enable/disable bit, 
but, higher pr “ ty sees more bits values than the 
lower priority ones. 


USER_MODE - (0/1/2/3) The mode of the user declared routine. 


NORRUV LS SH VS ARUNIOSRVE AF AUS Se eR OMO 


USER_ADDR - User declared routine address. 
USER_ID - | address 0" an identification (3; the user declared 
routine prageter can be eliminated, explanation 


is given e $31 for now, I have used this one as 
a@ handy way to Rrou gi oh user has declared user's 
Foutias or not). 


wn 


SAVE MASK - The ad address of the cyrrens tate of the user declared 
routine, before value is setting by USER_MASK, is 
returned to the caller. 


w 
kk a tt a kt tn a = = st ss wt 8 a 


ee te ee ee ee ee ee ee eee eee a 


a a a a i a a a at 4) ee 4 st st a 9 4 do 9 4 4» an ss 9 os 1 
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' Outputs: 


Worst status encountered. 


i eas 
BEGIN 
BUILTIN FP; 


user_setup_fiags: VECTORC BYTE); } inporgent fle velues set to 
m em service 
f pt sy 


i to wor 


Loc 
“\ntercest. 


setup_ flag, 
user _prio, 
user_mask, 
user_mode, 
mask const, 


prio_mask: REF VECTORC,BYTE), 
status; 


' Address of saved Syston vector, 
Fore, code area in PO 


from 
USER_SETUP_FLAGS 
(1 byte each). 


PPP E £* EE 


i Calculated mask values for | 
! each priority 
' Current mask value after set 
! Return status 

Cannot perform futher if there is no interception setup. 

intercept = .(SYS$QI10W + sgn$c sysvecpgs ® $12 = 4); 

IF .intercept EQL 0 THEN RETURA 1; 

! Indicate this program is running. We never intercept anything from 

: this program. 


ssi_running_flag = 1; 


Get setup values from USER_SETUP_FLAGS. 
setup_flag = .user_setup Past 


SN NNO OO 


~ AAA 
MEW — SSNS NP MSO Doe OA POG oD te OD to De a ee eo Dee 


user_prio = .user_Setup_flags 
user_mask = .user_setup_ flags 
user_mode = .user_setup_ flags 
status = 1; 


ARAVA SISSON SUN ODS WEAR To Doe WA RUN HOO WO Pe Obs 


Set up ser declared routine in the table. Insercept is setup in 
SSIK.B32 which must be called first, if user first time declares user's 
routine, enter user declared routine address in the table, if user 

has pireosy doc lores user's routine before, simply place the routine 

in the table given by USER_ID. 


' 
i 
i 
i 
i 
i 
If .setup_fla 
THEN . 


ee ae ec ee ee ee ee ee a ee ee ee ed ed ed a ed ed ed 
a ce a ee ee ee ee ee ed ed ed od = 


PIPPI IPIPIPIPIPIRINIPINIPIPINIPIPIPIPDPIPIPIPIAIPINIPIPIPIPININIPIPIPIPIPINPIPIPIPIPRIPIAIIPIPIIPIPIIY 8 = 
ccm 
“num 
mmn— 
2wDcC 
os UO 
wa 
» 
—_ 
oO 


RESLESE 


oo 
ped 
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BEGIN 


: Enter User declared routine into the table. 
if .user_addr EQL 0 
THEN 


mig: ning_ fl 0 
un ag = 0; 
RETORN 0; anes 


eLsE. 
IF ,.user_id EQL 0 
THEN 


Locate a spot in the table for the user routine to enter. 


evseeets = user_setup(.user_id, .user_addr, .user_prio, .user_mode) 


We know the spot, plung it in. 


status = user_cancel_restore(.setup_flag, .user_id, .user_mode, 
EM -user_addr); 


END 
! Delete user declared routine from the table. If user declared routine 
} is no longer active. 
ELSE 
If ..user_id NEQ 0 
THEN 
status = user_cancel_restore(.setup_flag, .user_id, .user_mode, 0); 


Od ed td td = ot IO oO 
REGS SSONOUNR UN SOO NSN WV OSBVET ROMO DI UO 


PPE EEE SEE 
We oc 
PIPPI IFIPIPIPININI MMI INIPII HAMM HMMM ME BBE EEE EEE EEE PME EF FMAM 


If NOT .status 
THEN 


ot flag = 0; 
+h "otbtuas” : 


' Routine is siveney declared, set routine enable mask, and return 
' the old one back to the user. Note: even if the routine is not 
declared, this piece info. still flows through the program. 


prio_mask = .intercept * issh_prio_mask - issh_vec_base; 


6 ! 1 - prio. 1, 3 - prio. 2, 7 = prio. 3, 15 = prio. 4). 


Be Se Oe Se Se Se Se Se Se Se Se Ss Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se FF Se Se ee Fe ee ee Fe ee ase 


WO COONS WO 


Odo bie aan 


Se 


COOCGCCOOCOCOOOCCOOOCOOOOoOOoOO 
PROPPIPIPIPIPINIPIPIPINIPINIPINIPUPIPININTD 


SNIOAO 
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' 
mask_const = (2 * (.user_prio-1)) = 1; 


: Preserved 1 bit value for prio. 1, 2 bits for prio. 2..., and return. 
.Save_mask = ..prio_mask AND .mask_const; 
! Preserve higher bits, through away the bits does not belong, then 
set its own bits. 
prio, mask = (..prio_mask AND (15 = .mask_const)) OR 

(,user_mask AND .mask const) 
: This program is no longer running. 


ssi running. flag = 0; 
E TORN $88 formset: 


ISSH_VEC_ LENGTH 
UNNING FLA 


SH 
ING FL 
A prs, ISSH_DATA_END 
10_ 
E 


‘A 2° 
=—D»YP 
D4 
re, 


“MASK, ssh. CTRO_INDEX 
“PRIO_INDEX 
~EXTRN “fre _BAS 


-PSECT SCODES,NOWRT,2 


.ENTRY SSIU_START, Save R2,R3,R4,R5,R6,R7,RB 
MOVAB $S1_RUNNING FLAG, Rb 
MOVL ags¥s$ol0us2s 6, INTERCEPT 


So 
_ 


oOo 


COoCoQooooc“eo 
COOoooooooo 


_ 
tad 
Cid 

cz 
n— 


$S1_RUNNING_FLAG 

TuP_ nics. "SETUP FLAG 
TUP “FLAGSS1 , USER_PRIO 
TUPFLAGS* * USER” “MASK 


I 
E 
E 
ETUP FLAGSeS, > USER MODE 
F 
D 


COw ~~ 


S 
-> 
=S 
$ 
S 
TAT 


3 § ~OOO 
VOVM>SOWwor WS 
ow 
DZ 
cm 
o 
oo 
sad 


LAG, 4$ 
ADDR, R4 


1_RUNNING_FLAG 
USERID, RI 
R1) 


Oo 
~ 
= 
orr 
Fas SSR=SIas SS 


COOOCOCOOOoOoCoOoO 
Oma > 

ow 

a 

zn 

ro 


$ 
PUSHR #*M<R2,R5> 0212 


@*M<R ,R4> 


= 
wv 
Cc 
n“ 
= 
po) 


Be Oe Be Se Se Se Se Be Se Se Oe Se Be Se Be Se Se Se Se Se Se Se Se Se FH Se Ss Se Se Se Se Se FF Se Se Se Se FF Se Se Se Se Se Se SeSe Fe Geese ee eee Fe Se Sete ae 


0000v CF 

0000v ff 

$0 

54 1 
51 

ey 

i OF 

2 

1 

sau 


; Routine Size: 166 bytes, Routine Base: 


oO 
oO 


So 
oO 


FF 


PAA MUNI & 


SVSZXNoesS SSRVAVNRSASNSS 


2 —nror 


oon 


ad 
o 


SCODES + 0000 


6 
18-sep-1944 13:18:33 Ptexsunthastenccocéoe. Skcrssiu.es2:1°°% «35 


Fe 3 CALLS #4, USER_SETUP ; 

1 Bee 6$ s 
dD 9 3$: pus RG : og1g 
i 4 eRe gent .AS> + 0217) 
F 4$: STL SER_1D + 0228 
¢ BEOQL $$ : 
D4 CLRL 0 = SP t 0230. 
DO PUSHL USER_MODE : | 
DD PUSHL USER@ID : | 
DD 5$: PUSHL SETUP FLAG : 
F CALLS #4, USER fANCEL RESTORE : ; 
E be 68: BLBS § STATUS, ? + 0234) 
i cLRL SS1_RUNNING_FLAG : 37 
68 7$:  MOVAB —_—«ISSH_PRIO_MASKCINTERCEPTI, R1 : 0246 | 

MOV ISSH-VEC_BASE, RO $ 
C SuBL R , Ri, PRIO_AASK - 

os 79 ASHL Re, #2, R1 : 

9 7D MOVAB <=1(R1), MASK CONST : 
D MC MASK_CONST + 0256 
C BICLS 1, TPRIO_MASK), @SAVE_MASK : 
C3 00089 SUBL3 MASK_CONST, #15. R1 : 0262) 
D COM, (PRIO_MASKS, ; 
CA BICL R2, RT : 
D2 MCOML MASK _CONST, R2 + 0263, 
CA 3 BICL2 Re, ; 
C9 000 BISL3 1. R3, (PRIO_MASK) : 
D4 00090 CLRL © SSE_RUNNING_FCAG : 0268 | 
BO 0009F 8$ MOVL #1,7RO ; 0269 | 

OOA RET : 
D4 OO0A3 98 CLRL RO : 0271. 
04 000A RET : | 


oe 


Be Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Ge Se Ge Se Se Ge Ge Se Ge Se Se Se Se Se Se Ge Se Ge Fe Ge Se Ge Se Se Se Se Ge Se Ge Se Se Ge Ge Ge es oe 
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DISKSVMSMASTER : (DEBUG. 
ROUTINE user_cancel_restore (setup_flag, routine_id, access_mode, routine_addr) = 


Function: 


> EP 


povsye/Mestere the user routine in PO space according to the given mode 


1 Inputs: 
; setup_ flag: 0 = cancel, 1 = restore. 
5 access_mode: mode of the user routine. 


routine_id: user routine identification. 


routine_addr: user routine address. 


90 

91 Outputs: 

x 

9 None. 

94 

95 4 Siaaiendl 

3 BEGIN 

38 LOCAL 

00 intercept, ! Address of saved systes vector, 

01 ! data, code area in PO 

8 data_base : REF VECTORC,LONG), ! Address of the data area 

0 ' (in which keeps a table of 
H user routines indexed 

5 } by (id 


e mode) 
ctrl_id; True position relative to 0 


intercept = .(SYS$Q10W + sgn$c_sysvecpgs * 512 - 4); 
If (..routine_id LSS 1) OR (..routine_id GTR 16) 
RETURN 0; 


data_base = .intercept + issh_data_beg - issh_vec_base; 
ctrl_lid = ..routine_id = 1; 


a ee ee oe 


Ronorersrnonsrornoeny Ss 
DNA VE WO OOO Sw O 


! Delete/Restore the entry/entries indexed by (id, mode) to (id, PSLSC_USER). 
Note: there is no check being made in here. 


INCR 1 FROR .access_mode to PSLSC_USER DO 
. -setup_flag 
data_base (.ctri_id © 4] + .i * 4 = .routine_addr 


ELS 
data_base (.ctri_id * 4] + .i * 4 = 0; 


AAA AP PPOPIPIPIPPOPINENIAPOPOPIPIPIPIPINIPIPIAPIPIPID 8 tt tt at tt ot tt 
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Vis 


X-11 Bliss-32 v6. 9 
SkSVNSMAS TERS (DEBUG. $ACISS1U.832;1" (4). 


0000 00000 USER_CANCEL RESTORE: 


.WORD Save nothin : 0272. 
$0 000000906 9 HOVL aAstcSalowes5s6, INTERCEPT : | 
gC p TSTL | @ROUTINE_ID : 0311, 
D C BLEG 30 : | 
10 08 pi CMPL § @ROUTINE_ID, #16 : 
& 0001 BGTR 4$ 3 
1 9000GCF40 9€ 00014 MOVAB ISSH_DATA_BEGLINTERCEPT), R1 + 0315 
0 00G CF 1A MOV ti. VEC_BASE, ; 
1 0¢ 1F SUBL2 RO, BATA-BAS : 
50 08 ‘ - : $ SUBL 1, @ROUTINE_ID, CTRL_ID ; 031 
C4 MULL At R : 032 
1 6140 DE OO02A MOVA (DATA BASE)CROJ, R1 : 
50 oc AC 0 ¢ 00 SUBL , ACCESS_MODE, 1 : 
E 99 BRB $5" ; 
07 06 ac €9 1$: BLBC SETUP FLAG ; 
6140 10 A oO 0039 MOVE OuT INE wiitn ¥ REI 3 
6140 04 00040 2%: CLRL —s-« (RD C1) : 03 
EE 50 0 F3 00043 3S: AOBLEQ #3, I, 1 : 03 
0 1 v0 MOVL 1; r6b : 03 
004A RET : 
50 p4 0048 4$: CLRL = RO. ; 033 
4 00040 RET F 


; Routine Size: 78 bytes, Routine Base: SCODES + O0A6 


336 0333 1 


s 


———————————————e—“ 


ISoseoctone 25:45:35 ya 
Routine Sutlaccter'e 


d, routine_addr, routine prio, routine_mode) = 


K-11 Bliss-32 V _ 
SKSVMGMAS TERS [DESY Ue. Scassiu.052: ae 19 


teee 
i 
: Function: 


Enter the user routine in PO space according to the given mode 
and priority. 


Note: 
The way I have set ye the bebi¢ in here has wasted a lot of 
e e 


space, ie., this table looks Like, 
prio\mode } ; 3 2 1 O (kernel) 
1 t xl x1 x1 xl (kernel rio, 1, x1) 
; ' x2 (user, y or 0. 2, x2) 
4 t x3 (user, in prio. 4, x3) <== ctrl_index: 4 
were this  tgtg cg can be pendoneee into 16 entries: 
prio\mode ; iu (kernel) 
1 x1 x2 (kernel and all lowe modes, in prio. 1, x2; 


user in prio. 1, x 


& 


USER_ID in here is not needed at all, (easily identified locatation 
by prio. and mode). <== future improvements 


' 

' 

‘ 

' 

' 

' 

' 

' 

‘ 

' 

' 

' 

‘ 

' 

' 

' 

' 

' 

i 5 

i 

' 

t 

' 

: 

: Inputs: 
routine_id: Address of the ID. 
: routine_addr: Address of the routine. 
: routine_prio: Priority of the routine. 
: routine_mode: Mode of the routine. 
i Outputs: 
None. 
i eee 


BEGIN 


CA 
Sapepeentis ' Address of saved s Stes vector, 


' 

; ata, aoe e ares 
ctrl_index : REF VECTORE ehoue? ' Total prio. entries. 
ctri=prio_ index : REF VECTOR( BYTE) ' Total entries in each pr ig. 
dat acbase” : REF VECTOR LONG), ' Pointer to data area i 
oeatt on, ' Exact location in the table 


15-se ser 18he TS:t:8t — SiexbuRehAStERcCoeBuG SkcJssiu.es2;1°°™ «3} 


priority; ! Prio. relative to 0 


intercept = .(SYS$Q]0W * sgn$c_sysvecpgs * 512 = 4); 


: Get the Address of the table in PO. 
data_base = .intercept * issh_data_beg - issh_vec_base; 


Dk we te ted ob oh nn nd 
AVISSSLES 


: Calculate the position in the table for the routine to enter. 
4 modes, 4 priority per mode. 
oriority s -routine_prio = 1; 

oi 


corte ndex = .intercept + issh corte rio. in on - en _vec_base; 
tion = .ctri_prio_indexl.priority Tpriori 


SSLESE 


Mo 
OE | 
PU 
CV 
co 
ul 
MA 
MA 
CL 
CL 
ul 
SY 
ul 


Table is ss neve 128 lLongwords available. We use half for the 
able (in rea lity, longwords is enough), the other half 

we use it as local storage 

so we have 64 longwords *% modes = 16 entries. 


F .position GEQ 16 THEN RETURN 0; 


> 4) st bt 8 ts 8 


NOUS wry DONO VEwN oO 


: Enter the routine address. 


iNCR i FROM .routine_mode TO 3 D0 | 
database [.posifion * 4] + .i * 4 = .routine_addr; 


Return the identification back to the user. 


et el lt lt ls cls cells cell lls cel oOo 
NOUR SOONO NE UVM ODS WEAR OO Oe wee 


-routine_id = .position + 1; 


wn 


: Update the control indexes, one per p*iority, and one for the table. 


Se Se Se Se Ge Se Ge Se Se Ge Se Ge Ge Se Se Ge Se Ge Se Ge Ge Se Se Ge Se Se Se Se Ge Ge Ge Se Se Se Ge Se Ge Se Se Ge Se Ge Ge Se Se Ge Ge 


Fat at at at ah at hh ah hate -ak hae a-ak ahh a kk kk 


5 
§ ctrl es index(€.priority) = .ctrl rig: indext . sah vec bus +1; 
ndex = intercept + issh sf85° ndéex - vec bese; 
; ctrl an }'= MAX(, ctrl_index(0J,~ we oe - 
40 
41 END; 


007C 00000 USER_SETUP: 


if 000088888 £5 88 8 10008 ra a 


18-se seit 3 T3:18:8 — baScbumaattenscdeauc.thcassiu.es2:1°°% «45 
ae HL A OA 
0 


oc A " PRIO ; | 
f 0000GCF Rov iste CTRL ta THOERE INTE RCEPT), R1 ; $$ 
$2 9 § § ‘4 °F nt be 0 INDEX ; 
6542 9A 00 ROVZBL CPhronl THE TRL_PRIO_INDEXJ, RO ; 0408 
6540 DE 001 MOVAL (PRIORITY) RO], “POSITION : | 
5 10 cHPL SITION, #16 + 0416 
4 1038 BGE 4 ; 
51 0 0 o ASHL #2, POSITION, R1 3; 0422. 
6441 DE 000 HOVAL (DATA BASE)CA1), Ré ; | 
51 10 AC 01 C3 000 suas 41. ROUTINE MODE, 1 ; | 
6441 08 AC 00 0049 1$:  — MOVL ROUTINE ADDR, (R4)C1) 3 | 
‘7 51 03 FS 000 : AOBLEQ #3, I, 1$ ; | 
06 BC 01 A 4 OC MOVAB = 1(RO) @ROUTINE 1D t 0427. 
654 00 INCB = (PRIORITY) CCTRL~PRIO_INDEX) ; ¢ 
1 O000GCF4 MOVAB ISSH_CTRL INDEXTINTERCEPT, R1 F 
0 $ MOV 35h VEC_BASE, R 3 
50 1 C3 00 SuBL3 RO, AI, CTRL_ index ; 
1 dd 0006 MOVL (CfA INDEX)? R1 5 04634. 
06 BC : CMPL 1, @ROUTINE. 1D ; | 
BGEG 460 s«3$ : 
51 06 BC D MOVL § @ROUTINE_ID, R1 : 
$0 ei D MOVL = RI, CCTRE INDEX) ; 
0 1 ? Hot “i, : 0435 
50 p4 CLRL =.» RO + 0437 
4 RET ; 
; Routine Size: 126 bytes, Routine Base: SCODES + O0F4 
44 1 
44 Oe 1 END 
646 40 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 370 NOVEC,NOWRT, RD, EXE,NOSHR, LCL. REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


wooeeeee Symbols oo------ Pages Processing 
File Total Loaded Percent Mapped Time 


oh adie $3:48:8% —UTScdunteagtenscbeauc.shcassiu.e32;1°°%* «43 


+ -$2558DUA28:(SYSLIBIL1B.L52;1 18619 3 1000 00:01.9 
; COMMAND QUALIFIERS 
; tdlibnes oc" INITIAL ,OPTIMIZE)/LIS=LIS$:SSIU/OBJ=0BJ$:SSIU MSRC$:SSIU/UPDATE=(ENHS:SSIU) 


; Jew A Saga 


: Size: é 0 data bytes 
3; Run Time: 
3; Elepsed Time 
3 Lines/CPuU Bin: 
3 “ 
3 pomeey Seer samen 


010 AH-BT13A-SE AL: EQUIPMENT CORPORATION 
VAX/VMS V4.0 


DENTIAL .AND PROPRIETARY 


DIGIT 
CONFI 


